home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.10 Oct 90 / NewToolBox.π / CExecWindow.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-09-08  |  8.7 KB  |  334 lines  |  [TEXT/KAHL]
  1. /*
  2. ------ T H E   W I N D O W  P R O C E D U R E 
  3.  
  4.         May 1989 - HA OLIVER
  5.  
  6. */
  7.  
  8. #include "Demo.h"
  9.  
  10.  
  11. extern    Rect        dragRect,growRect;
  12. extern    TEHandle    CurrentText;
  13. extern    ListHandle    CurrentList;
  14. extern    WindowPtr    CurrentPort;
  15. extern    Handle        ListList,TextList,PictList;
  16. extern    Boolean        isDoc;
  17. extern    int            dh,dv;
  18. static    WindowPtr    theWindow;
  19. static    EventRecord    theEvent;
  20.  
  21.  
  22. /*
  23. ------------- Grow
  24. */
  25.  
  26. DoGrow()
  27. {
  28. }
  29.  
  30. /*
  31. ----------------------  mouseDown is in    "theWindow" ...
  32. */
  33.  
  34. TestInContent(global)
  35. Point    global;
  36. {
  37.     Point            newOr,local;
  38.     Rect            contRect;
  39.     char            result;
  40.     TEHandle        theText;
  41.     ListHandle        theList;
  42.     int                inControlPart;
  43.     ControlHandle    theControl;
  44.     PicHandle        thePic;
  45.     
  46.     local=global;
  47.     GetWindowClip(&contRect,&newOr,theWindow);
  48.     SetOrigin(0,0);
  49.     GlobalToLocal(&local);
  50.     ClipRect(&(*theWindow).portRect);
  51.     
  52.     if (PtInRect(local,&contRect))
  53.         {
  54.             OffsetRect(&contRect,newOr.h,newOr.v);
  55.             ClipRect(&contRect);
  56.             SetOrigin(newOr.h,newOr.v);
  57.             local=global;
  58.             GlobalToLocal(&local);
  59.             
  60.             theText=FindText(local,theWindow);
  61.                 if (theText!=NULL)
  62.                     { if (theText!=CurrentText)
  63.                         { if (CurrentText!=NULL) TEDeactivate(CurrentText);
  64.                           TEActivate(theText);
  65.                           CurrentText=theText;
  66.                          }
  67.                        if (CurrentList!=NULL) LActivate(false,CurrentList);
  68.                        CurrentList=NULL;
  69.                        TEClick(local,false,CurrentText);
  70.                      }
  71.                 else
  72.                     {
  73.                         theList=FindList(true,local,theWindow);
  74.                         if (theList!=NULL)
  75.                             { if (theList!=CurrentList)
  76.                                 { if (CurrentList!=NULL) LActivate(false,CurrentList);
  77.                                   LActivate(true,theList);
  78.                                   CurrentList=theList;
  79.                                  }
  80.                                if (CurrentText!=NULL) TEDeactivate(CurrentText);
  81.                                CurrentText=NULL;
  82.                                result    =LClick(local,theEvent.modifiers,CurrentList);
  83.                              }
  84.                         else
  85.                             {
  86.                                 inControlPart=FindControl(local,theWindow,&theControl);
  87.                                 if (theControl!=NULL)
  88.                                      {
  89.                                          if (CurrentList!=NULL) LActivate(false,CurrentList);
  90.                                         CurrentList=NULL;
  91.                                         if (CurrentText!=NULL) TEDeactivate(CurrentText);
  92.                                         CurrentText=NULL;
  93.                                         
  94.                                          switch(inControlPart)
  95.                                              {
  96.                                                  case     inButton    :if (TrackControl(theControl,local,NULL)!=0) 
  97.                                                                       ExecControl(theControl);break;
  98.                                                  case    inCheckBox    :if (TrackControl(theControl,local,NULL)!=0)
  99.                                                                          {
  100.                                                                               switch(GetCtlValue(theControl))
  101.                                                                                   {
  102.                                                                                       case 1:SetCtlValue(theControl,0);break;
  103.                                                                                       case 0:SetCtlValue(theControl,1);break;
  104.                                                                                   }
  105.                                                                                ExecControl(theControl);
  106.                                                                           };break;
  107.                                                  case    inUpButton    :
  108.                                                  case    inDownButton:
  109.                                                  case    inPageDown    :
  110.                                                  case    inPageUp    :
  111.                                                  case    inThumb        :             
  112.                                                  default                :break;
  113.                                              
  114.                                              }
  115.                                      }
  116.                                  else
  117.                                      {
  118.                                          if (CurrentList!=NULL) LActivate(false,CurrentList);
  119.                                         CurrentList=NULL;
  120.                                         if (CurrentText!=NULL) TEDeactivate(CurrentText);
  121.                                         CurrentText=NULL;
  122.                                         
  123.                                          thePic=FindPict(local,theWindow);
  124.                                         if(thePic!=NULL)
  125.                                             {
  126.                                                 SysBeep(5);
  127.                                             }
  128.                                      }
  129.                             }
  130.                     }
  131.             SetCurrents(CurrentText,CurrentList,theWindow);
  132.         
  133.         }
  134. }
  135.  
  136. /*
  137. ----------------------  mouseDown on the desktop ...
  138. */
  139.  
  140.  
  141. DoMouseDown()
  142. { 
  143.     switch(FindWindow(theEvent.where,&theWindow))
  144.         {
  145.             case     inContent :if (theWindow!=FrontWindow()) 
  146.                                SelectWindow(theWindow);
  147.                                else TestInContent(theEvent.where);
  148.                                break;
  149.                                
  150.             case    inGoAway  :if (TrackGoAway(theWindow,theEvent.where))
  151.                                  {             
  152.                                              DeInstalWindow(theWindow);
  153.                                             CurrentText=NULL;
  154.                                             CurrentList=NULL;
  155.                                             if (FrontWindow()==NULL) isDoc=FALSE;    
  156.                                  };
  157.                                break;
  158.                       
  159.             case    inGrow    :if (theWindow!=FrontWindow()) 
  160.                                SelectWindow(theWindow);
  161.                                else if (WindowWithGrow(theWindow)) DoGrow();
  162.                                break;
  163.             case    inDrag    :DragWindow(theWindow,theEvent.where,&dragRect);break;
  164.             case    inZoomIn  :
  165.             case    inZoomOut :break;
  166.         }
  167. }
  168.  
  169. /*
  170. ---------------------- A key Down...
  171.  */
  172.  
  173.  
  174. DoKeyDown()
  175. {
  176.         Rect    contRect;
  177.         Point    newOr;
  178.         register char    key;
  179.         
  180.         GetWindowClip(&contRect,&newOr,theWindow);
  181.         OffsetRect(&contRect,newOr.h,newOr.v);
  182.         ClipRect(&contRect);
  183.         SetOrigin(newOr.h,newOr.v);
  184.         key        =theEvent.message & charCodeMask;
  185.         if (CurrentText!=NULL)  TEKey(key,CurrentText);
  186.         if (CurrentList!=NULL)  
  187.             { 
  188.                         ObscureCursor();
  189.                         ListKey(key,CurrentList);
  190.             }
  191. }
  192.  
  193. /*
  194. ---------------------- Update the Window 
  195. */
  196.  
  197. DoUpdate()
  198. {
  199.             Rect    contRect;
  200.             Point    newOr;
  201.  
  202.             BeginUpdate(theWindow);
  203.             EraseRect(&(*theWindow).portRect);
  204.             SetOrigin(0,0);
  205.             ClipRect(&(*theWindow).portRect);
  206.             if (WindowWithGrow(theWindow)) DrawGrowIcon(theWindow);
  207.             GetWindowClip(&contRect,&newOr,theWindow);
  208.             OffsetRect(&contRect,newOr.h,newOr.v);
  209.             ClipRect(&contRect); 
  210.             SetOrigin(newOr.h,newOr.v);
  211.             DrawPicts(theWindow);  
  212.             DrawTexts(theWindow);
  213.             DrawLists(theWindow);
  214.             DrawControls(theWindow);
  215.             EndUpdate(theWindow);
  216. }
  217.  
  218. /*
  219. ---------------------- Activate the Window
  220. */ 
  221.  
  222. DoActivate()
  223. {
  224.             Rect    contRect;
  225.             Point    newOr;
  226.             
  227.            if (theEvent.modifiers & activeFlag) 
  228.              {
  229.                SetOrigin(0,0);
  230.                ClipRect(&(*theWindow).portRect);
  231.                HiliteAllControls(CtlActive,theWindow);
  232.                if (WindowWithGrow(theWindow)) DrawGrowIcon(theWindow);
  233.                GetWindowClip(&contRect,&newOr,theWindow);
  234.                OffsetRect(&contRect,newOr.h,newOr.v);
  235.                ClipRect(&contRect);
  236.                SetOrigin(newOr.h,newOr.v);
  237.                ActivateText(theWindow);
  238.                ActivateList(theWindow);   
  239.              }
  240.            else
  241.              {
  242.                SetOrigin(0,0);
  243.                ClipRect(&(*theWindow).portRect);
  244.                HiliteAllControls(CtlInactive,theWindow);
  245.                if (WindowWithGrow(theWindow)) DrawGrowIcon(theWindow);
  246.                GetWindowClip(&contRect,&newOr,theWindow);
  247.                OffsetRect(&contRect,newOr.h,newOr.v);
  248.                ClipRect(&contRect);
  249.                SetOrigin(newOr.h,newOr.v);
  250.                DeactivateText(theWindow);
  251.                DeactivateList(theWindow);
  252.              }
  253. }
  254.  
  255. /*
  256. ---------------------- 
  257. */
  258.  
  259. DoNullEvent()
  260. {
  261. }
  262.  
  263. /*
  264. ---------------------- Resume or Suspend needed...
  265.  */
  266.  
  267. DoMulti()
  268. {
  269.     Rect    contRect;
  270.     Point    newOr;
  271.             
  272.     if (theEvent.message & 1)
  273.         {    
  274.                SetOrigin(0,0);
  275.                ClipRect(&(*theWindow).portRect);
  276.                HiliteAllControls(CtlActive,theWindow);
  277.                if (WindowWithGrow(theWindow)) DrawGrowIcon(theWindow);
  278.                GetWindowClip(&contRect,&newOr,theWindow);
  279.                OffsetRect(&contRect,newOr.h,newOr.v);
  280.                ClipRect(&contRect);
  281.                SetOrigin(newOr.h,newOr.v);
  282.                ActivateText(theWindow);
  283.                ActivateList(theWindow); 
  284.         }
  285.     else
  286.         {
  287.                SetOrigin(0,0);
  288.                ClipRect(&(*theWindow).portRect);
  289.                HiliteAllControls(CtlInactive,theWindow);
  290.                if (WindowWithGrow(theWindow)) DrawGrowIcon(theWindow);
  291.                GetWindowClip(&contRect,&newOr,theWindow);
  292.                OffsetRect(&contRect,newOr.h,newOr.v);
  293.                ClipRect(&contRect);
  294.                SetOrigin(newOr.h,newOr.v);
  295.                DeactivateText(theWindow);
  296.                DeactivateList(theWindow);
  297.         }
  298. }
  299.  
  300. /*
  301. ---------------------- This Function is called when  
  302.                         an Event occurs for "theWindow"
  303. */                         
  304.  
  305. pascal void MyWindow(anEventAdd,inWindow)
  306. EventRecord        *anEventAdd;
  307. WindowPtr        inWindow;
  308. {
  309.     
  310.     theWindow = inWindow;
  311.     theEvent  = *anEventAdd;
  312.     GetPort(&CurrentPort);
  313.     SetPort(theWindow);
  314.     switch(theEvent.what)
  315.         {
  316.             case    nullEvent     :DoNullEvent();break;
  317.             case    mouseDown     :DoMouseDown();break;
  318.             case    mouseUp       :break;
  319.             case    keyDown       :DoKeyDown();break;
  320.             case    keyUp         :break;
  321.             case    autoKey       :DoKeyDown();break;
  322.             case    updateEvt     :DoUpdate();break;
  323.             case    activateEvt   :DoActivate();break;
  324.             case    diskEvt       :break;
  325.             case    multiFinderEvt:DoMulti();break;
  326.             
  327.             default:break; /* HighLevelEvent ?  */
  328.        }
  329.      SetPort(CurrentPort);
  330. }
  331.  
  332. /*
  333. ---------------------
  334. */